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Abstract 

The setting of this work is dependent type theory extended with the univa- 
lence axiom. We prove that, for a large class of algebraic structures, isomorphic 
instances of a structure are equal — in fact, isomorphism is in bijective correspon- 
dence with equality. The class of structures includes monoids whose underlying 
types are "sets", and also posets where the underlying types are sets and the 
ordering relations are pointwise "propositional" . For monoids on sets equality 
coincides with the usual notion of isomorphism from universal algebra, and for 
posets of the kind mentioned above equality coincides with order isomorphism. 
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1. Introduction 

De Bruijn argued that it is more natural for mathematicians to work with 
a typed language than with the untyped universe of set theory (1975). In this 
paper we explore a possible mathematical advantage of working in a type the- 
ory — inspired by the ones designed by de Bruijn and his coworkers 1 (de Bruijn 
1980) — over working in set theory. 

Consider the following two monoids: 

(N, Xmn. m + n,0) 

and 

(N \ { 0 }, Xmn. m + n- 1,1). 

These monoids are isomorphic, as witnessed by the isomorphism An. n + 1. 
However, in set theory they are not equal: there are properties that are satisfied 
by only one of them. For instance, only the first one satisfies the property that 
the carrier set contains the element 0. 

In (a certain) type theory extended with the univalence axiom (see Section 2) 
the situation is different. This is the focus of the present paper: 

• We prove that monoids Mi and Mi that are isomorphic, i.e. for which there 
is a homomorphic bijection / : M\ — > M 2 , are equal (see Section 3.5). 
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In fact, we show that isomorphism is in bijective correspondence with 
equality. 

Note that the equality that we use is substitutive. This means that, unlike 
in set theory, any property that holds for the first monoid above also holds 
for the second one. 

(The result is restricted to monoids whose carrier types are "sets" . This 
term is defined in Section 2.5. Many types, including the natural numbers, 
are sets.) 

• The result about monoids follows directly from a more general theorem 
(see Section 3.3), which applies to a large class of algebraic structures, 
including posets and discrete fields (defined as in Section 3.5). 

All the main results in the paper have been formalised using the proof assis- 
tant Agda 2 (Norell 2007; The Agda Team 2013), which is based on Martin-L6f 
type theory (Martin-L6f 1975; Nordstrom et al. 1990). Unlike in regular Martin- 
Lof type theory we use a "non-computing" J rule (i.e. the computation rule for 
J only holds propositionally, not definitionally); this choice, which makes the 
result more generally applicable, is motivated in Section 2.3. We believe that 
our arguments carry over to other variants of type theory, but do not make any 
formal claims in this direction. 

Note that our theorem is proved inside the type theory, using the univalcncc 
axiom. In the absence of this axiom we can still observe, meta-theoretically, that 
we cannot prove any statement that distinguishes the two monoids above (given 
the consistency of the axiom). A related observation was made already in the 
1930s by Lindenbaum and Tarski (1983, see also Tarski (1986)): in a certain 
variant of type theory every sentential function is invariant under bijections. 

The formulation of "isomorphism is equality" that is used in this paper is not 
intended to be as general as possible; we try to strike a good balance between 
generality and ease of understanding. Other variations of this result have been 
developed concurrently by Aczel (The Univalent Foundations Program 2013) 
and Ahrcns et al. (2013). See Section 4 for further discussion of related work. 

2. Preliminaries 

This section introduces some concepts, terminology and results used below. 
We assume some familiarity with type theory. 

The presentation in this and subsequent sections is close to the Agda formal- 
isation, but differs in minor details. In particular, we do not always use proper 
Agda syntax. 

2.1. Hierarchy of types 

We assume that we have an infinite hierarchy of "types of types" Type Q : 
Type 1 : Type 2 : ... (and use the synonym Type = Type 0 ). Below we define 
some concepts using certain types Type i and Type^. These definitions are ap- 
plicable to arbitrary "universe levels" i and j . 



2 Using the — without-K flag; the code has been made available to download. 
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In Agda a member of Type i is not automatically a member of Typej for 
% < j , but one can manually lift types from one level to another. In this paper 
we omit such liftings. 

2.2. Quantifiers 

If we have A : Type i and B : A — > Typej, then we can introduce the II- 
type, or dependent function type, [x : A) — > B x (this type is sometimes writ- 
ten V x. B x). If we have / : (x : A) — > B x and t : A, then the application 
/ t has type B t. Simple (non-dependent) function types are written A — > B. 

In order to reduce clutter we sometimes use "implicit" function types. The 
notations {x : A} — > B x and V {x}. B x mean the same as (x : A) — > B x 
and V x. B x, respectively, except that the function's argument is not given 
explicitly: we write / rather than / t, with the hope that readers can infer t 
from the context. 

Sometimes we combine several quantifiers into one: (x y : A) — > B x y 
means the same as (x : A) — > (y : A) — > B x y, and V x {y z}. B x y z means 
the same as V a;. V {y}. V {z}. B x y z. 

E-types, or dependent pairs, are written £ x : A. B x (or £ x. B x). If 
we have t : A and u : B t, then (t, u) has type £ x : A. B x. S-types come 
with two projection functions. The first projection is written proji and the sec- 
ond proj2- Cartesian products (non-dependent pairs) are defined as A x B = 
£ _ : A. B. 

We make use of 77-equality for both II-types and S-types: the function 
/ : (x : A) — > B x is definitionally equal to A x. f x (where x is not free in /), 
and the pair p : £ x : A. B x is definitionally equal to (proji p,proj2 p). (Def- 
initional equality is discussed below.) We suspect that the use of definitional 
77-equality is not essential, but have used it in our Agda formalisation. 

2.3. Equality 

Following de Bruijn (1975) we distinguish between definitional (or judge- 
mental) and propositional (or book) equality. Definitional equality (/377-equality 
plus unfolding of user-made definitions) is inferred automatically by the type 
checker, and comes with no term formers. If we have t : A, and A is defi- 
nitionally equal to B, then we have t : B as well: definitional equalities are 
"invoked automatically". Propositional equality, on the other hand, is a type 
with corresponding term formers. 

The propositional equality type, containing proofs of equality between x and 
y, is written x = y. Here x and y must have the same type A, and if we have 
A : Type i; then we also have x = y : Type i . There is one introduction rule for 
equalities — reflexivity: 

refl : {A : TypeA- -> (x : A) -> x = x 

The equality eliminator is traditionally called J: 

J ■ {A : TypeA- -+ 

(P : (x y : A) -> x = y -> Type } ) -> 

(V x. P x x (refl x)) -> 

V {x y}. (eq : x = y) — > P x y eq 
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Typically J and refl come together with a "computation rule" , a definitional 
equality stating how applications of the form J P r (refl x) compute (Martin- 
Lof 1975). We include such a rule, but stated as a propositional equality: 

J-refl : {A : Type,} — > 

(P : (x y : A) -+ x = y -+ Type^ -> 
(r :Vi.Fu (refl x)) — > 
y x. J P r (refl x) = r x 

The reason for using a propositional computation rule is the ongoing quest 
to find a computational interpretation of the univalence axiom (described in 
Section 2.5): perhaps we will end up with a computational interpretation in 
which J-refl does not hold definitionally. 

As mentioned in the introduction the propositional equality type is substi- 
tutive. This follows directly from the J rule: 

subst : {A : TypeA- -» (P : A -> Typej) -> 
{x y : A} — > x = y — > P x — > P y 
subst P = J (A u v _. P u — > P v) (X - p. p) 

We sometimes make use of axioms stating that propositional equality of 
functions is extensional: 

Extensionality : (A : Type A — > (£> : ^4 — > Type^) -4- 
(/ 5 : (z : A) -> B a;) ->■ 
(V x. f x = g x) -> f = g 

When we use the term "extensionality" below we refer to this kind of exten- 
sionality. In the Agda formalisation we explicitly pass around assumptions of 
extensionality (foo : Extensionality — > . . .), thus making it clear when this as- 
sumption is not used. To avoid clutter we do not do so below. 

The type of bijections between the types A : Type i and B : Typej is written 
A <-» B. This type can be defined as a nested S-type: 

A^B = Sto: A^B.S from : B -> A. 

(V x. to (from x) = x) X (V x. from (to x) = x) 

If we have / : A -H- B, then we use the notation to f for the "forward" function 
of type A — > B, and from f for the "backward" function of type B — > A. 

A key property of equality of S-types is that equality of pairs p, q of type 
£ x : A. B x is in bijective correspondence with pairs of equalities: 

p = q E eq : proji p = proji q. subst B eq (proj2 p) = proji q 

This property can be proved using J and J-refl. By assuming extensionality we 
can prove a similar key property of equality of II-types (Voevodsky 2011): 

f = 9 ^ V x. f x = g x 
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2.4- More types 

The unit type is denoted T (with sole element tt : T), and the empty type 
_L. Agda comes with 77-equality for T: all values of this type are dcfinitionally 
equal. 

The binary (disjoint) sum of the types A and B is written A + B. If we 
have t : A and u : B, then we also have inji t : A + B and inj2 u : A + B. 

The natural numbers are defined as an inductive data type N with con- 
structors zero : N and sue : N — > N. Natural numbers can be eliminated using 
structural recursion. 

Two types A and B are logically equivalent, written A B, if there are 
functions going from A to B and back: A <^ B = (A ->• B) x (B -> A). 

2. 5. Univalent foundations 

Let us now introduce some terminology and results from the "univalent foun- 
dations of mathematics" , largely but not entirely based on work done by Voe- 
vodsky (2010, 2011), and verified to apply in our setting (with a propositional 
computation rule for J). 

Contractibility is defined as follows: 

Contractible : Type i — > Type i 
Contractible A = Ex : A.M y. x = y 

Homotopy levels or h-levels are defined recursively: 

H-level : N -> Type^ -> Typei 

H-level zero A = Contractible A 

H-level (sue n) A = (x y : A) — > H-level n (x = y) 

Types at level 0 are contractible. We call types at level 1 propositions and types 
at level 2 sets: 

Is-proposition : Type, L — > Type { 
Is-proposition = H-level 1 

Is-set : Typei ~> T VP e z 
Is-set = H-level 2 

The following results can be used to establish that a type has a certain 
h-level: 

• A type which has h-level n also has h-level sue n. 

• A type A is contractible iff it is in bijective correspondence with the unit 
type: T «-> A. 

• A type A is a proposition iff all its values are equal: (x y : A) — > x = y. 
In particular, _L is a proposition. 

• A type A is a set iff it satisfies the "uniqueness of identity proofs" property 
(UIP): (x y : A) -> (p q : x = y) -> p = q. 

• If a type A has decidable equality, (x y : A) — > (x = y) + (x = y — > _L), 
then it satisfies UIP (Hedberg 1998), so it is a set. In particular, N is a 
set. 
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• H-level n A is a proposition (assuming extensionality). 

• If A has h-level n, and, for all x, B x has h-level n, then £ x : A. B x has 
h-level n. 

• If, for all x, B x has h-level n, then (x : A) — > P x has h-level n (assum- 
ing extensionality). 

• If ^4 and P both have h-level n, where n ^ 2, then A + B has h-level n. 

• If ^4 has h-level n > 1, then a; : A. B x has h-level n (assuming ex- 
tensionality). Here W x : A. B x is a W-type, or well-founded tree type 
(Nordstrom et al. 1990). 

• When proving that a type A has a positive h-level one can assume that A 
is inhabited: (A — > H-level (sue n) .A) — > H-level (sue n) A 

• If there is a "split surjection" from A to B (i.e. a triple consisting of 
two functions to : A — > P and /rom : B ^ A along with a proof of 
V x. to (/rom x) = x), and 4 has h-level n, then 5 has h-level n. 

If a type is known to be propositional, then one can use this knowledge to 
simplify certain equalities — propositionally typed second components of pairs 
can be dropped: 

(p q : S x : A. B x) -> 
Is-proposition {B {proji q)) — > 
{P = q) •H- (pny'i p = proji q) 

A non-dependent function is an equivalence if all its "preimages" are con- 
tractible: 

Is- equivalence : {A B : Type,;} — >• (A — > P) — > Type, 
Is-equivalence f = V ?/. Contractible (E x. f x = y) 

Observe that Is-equivalence f is a proposition (assuming extensionality). One 
example of an equivalence is sitfest P eg : P x — > P y (for any P, x, y and 
eg : x = y). 

Two types A and P> are equivalent, written A ~ P, if there is an equivalence 
from A to P: 

/ : ,4 — > P. Is-equivalence f 

If we have eg : A ~ P, then we use the (overloaded) notation to eq for the 
first projection of eq. Given eq : A ~ P it is also easy to construct a function 
of type P — > ^4. We use the overloaded notation /rom eg for this function: 
/rom eg = A y. proji {proji {proj 2 eq yj). 

It is straightforward to prove that to eq and from eq are inverses, which im- 
plies that equivalent types are in bijective correspondence. In fact, there is a log- 
ical equivalence between A ~ P and A e B that, in both directions, preserves 
the to and from components. When A is a set we can, assuming extensionality, 
strengthen this logical equivalence to a bijection: (A ~ P) <-» (A o P). If 
both A and P are propositions, then we can take this one step further — in this 
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case equivalences are, again assuming extensionality, in bijective correspondence 
with logical equivalences: (A ~ B) ^ (A B). 

The following property provides one way to prove that two types £ x : A. 
B x and Ex : C . D x are equivalent: 

(eg : A ~ C) -> (V x. B x ~ D [to eq x)) -> 
(27 a; : A 5 x) ~ (27 a; : C. D x) 

If we assume extensionality, then we can prove a corresponding property for 
Il-types: 

(eq : A ~ C) -> (V x. B x ~ P (to eg a;)) -> 
((a; : i) ^ B s) - ((i : C) ^ D i) 

Similar properties can be proved for other type formers. 
It is easy to show that equality implies equivalence: 

: (A B : TypeA -^A = B^A~B 
= J (X A B _. A ~ B) (\ _. id) 

(Here id is the identity equivalence.) The univalence axiom states that this 
function is an equivalence: 

Univalence : (A B : Type^ — > Is- equivalence (==>~ 4 5) 

As immediate consequences of the univalence axiom we get that equality is in 
bijective correspondence with equivalence, (A = B) o (A ~ B), and that 
we can convert equivalences to equalities: 

: {A B : TypeA- -^A~B^A=B 

The univalence axiom (two instances, one at level j and one at level j + 1) also 
implies extensionality (at levels i and j). Furthermore univalence (at level i) 
can be used to prove the transport theorem: 

(P : Type, -> TypeA -+ 

(resp : V {4 5}. X ~ 5 -> P 4 -> P 5) -> 
(resp-id : V {,4}. (p : P ^4) — > resp id p = p) ^ 
V -j>4 P}. (eg : 4 ~ P) -> (p : P A) -> 
resp eq p = subst P (~=^= eg) p 

This theorem states that if we have a function resp that witnesses that a predi- 
cate P respects equivalence, and resp id is the identity function, then resp eq is 
pointwisc equal to subst P (~=>= eg). By using the fact that sw&sf P (~=>= eg) 
is an equivalence we get that resp eq is also an equivalence. Furthermore we 
can prove that resp eq preserves compositions (if we, in addition to univalence, 
assume extensionality) . 

We mentioned above that we make use of a global assumption of extension- 
ality in the text. We also make use of a global assumption of univalence. To be 
precise, below we use univalence at the first three universe levels. These three 
instances of univalence can be used to prove all instances of extensionality that 
we make use of. 
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3. Isomorphism is equality 

In this section we prove that isomorphism is equality for a large class of 
algebraic structures. First we prove the result for arbitrary "universes" satis- 
fying certain properties, then we define a universe that is closed under (non- 
dependent) function spaces, cartesian products, and binary sums, and finally 
we give some examples. 

3.1. Parameters 

We parametrise the general result by four components, U, El, resp and 
resp-id. 

The first two components form a universe, i.e. a type of codes along with a 
decoding function: 

U : Type 2 

El : U -> Type 1 -> Type 1 

We have chosen to use Type 2 and Type 1 (rather than, say, Type and Type) in 
order to support the example universe given in Section 3.4. However, other 
choices are possible. 

The third component is a requirement that El a, when seen as a predicate, 
respects equivalences: 

resp : V a {B C}. B ~ C^ElaB^ElaC 

Finally the resp function should map the identity equivalence id to the identity 
function: 

resp-id : V a {B}. (x : El a B) — > resp a id x = x 

The idea is that a value a : U corresponds to a kind of structure, that El a B 
is the type of a-structures on the "carrier type" B, and that the operation resp 
corresponds to "transport of structure" (Bourbaki 1957): if a; : El a B and 
eq : B ~ C then resp a eq x is the o-structure on C obtained by transporting 
x along eq. 

It follows from the transport theorem, instantiated with resp and resp-id, 
that resp a eq x is equal to subst {El a) (~=>= eq) x (assuming univalence), so 
it is perhaps natural to wonder what the purpose of resp is. The resp function is 
used to define a notion of isomorphism (see Section 3.2). In the examples below 
we instantiate resp in such a way that this notion of isomorphism is, arguably, 
closer to conventional definitions of isomorphism than what we would get if we 
used the definition resp a eq x — subst (El a) (~=>= eq) x. 

3.2. Codes for structures 

Given these parameters we define a notion of codes for "extended" structures. 
The codes consist of two parts, a code in U and a family of propositions: 

Code : Type 3 
Code = 
£ a : U. 

(C : Type^) — >■ El a C — > E P : Type 1 . Is-proposition P 
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The codes are decoded in the following way (values of type Instance c arc in- 
stances of the structure coded by c): 

Instance : Code — > Type 2 
Instance (a, P) = 

£ C : Type 1 . — Carrier type. 

£ x : El a C. — Element. 

proji (P C x) — The element satisfies the corresponding 
— proposition. 

We can also define what it means for two instances to be isomorphic. First 
we use resp to define a predicate that specifies when a given equivalence is an 
isomorphism from one element to another: 

Is-isomorphism : V a {B C}. B ~ C — > El a B — > El a C — > Type 1 
Is-isomorphism a eq x y = resp a eq x = y 

Two instances are then defined to be isomorphic if there is an equivalence be- 
tween the carrier types that relates the elements; the propositions are ignored: 

Isomorphic : V c. Instance c — > Instance c — > Type 1 
Isomorphic (a, J) (C, x, _) (D,y,J) = 
£ eq : C ~ ZJ. Is-isomorphism a eq x y 

The following projections, one for carrier types and one for elements, are 
easy to define: 

Carrier : V c. Instance c — > Tj/pej 

element : V c. (X : Instance c) — > £7 (pny'i c) ( Carrier c X) 

We use the projections to state that equality of instances is in bijective corre- 
spondence with a type of pairs containing one equality for the carrier types and 
one for the elements: 

equality-pair-lemma : 

M c. (X Y : Instance c) — > 

(x ee r) 

S eq : Carrier c X = Carrier c Y. 

subst (El (proji c)) eq (element c X) = element c Y 

Our proof of this statement is straightforward. Assume that c = (a,P), X = 
(C,x,p) and Y = (D,y,q). We proceed by "bijectional reasoning" (note that 
o is a transitive relation): 

(C,x,p) ee (D,y,q) 

= ((^,»),«) ^ 
(Ci) - (D,y) 
£ eq : C = D. subst (El a) eq x = y 

In the first step we apply a bijcction to both sides of the equality, in the second 
step we drop the propositionally typed second components of the tuples, and 
the last step uses the key property of equality of S-types that was mentioned 
in Section 2.3. 
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3.3. Main theorem 

Let us now prove the main result: 

isomorphism-is- equality : V c X Y . Isomorphic c X Y -H- (X = Y) 

Assume that c = (a,P) 7 X = (C,x,p) and Y = (D,y,q). As above we 
proceed by bijectional reasoning (after unfolding some definitions): 

S eq : C ~ D. resp a eq x = y <-> 

E eq : C ~ D. subst (El a) (~=>= eq) x = y o 
S eq : C = D. subst (El a) eq x = y -H- 

X ee y 

The first step uses the transport theorem instantiated with resp and resp-id, 
the second step univalence, and the last step equality-pair-lemma. 

An immediate consequence of isomorphism-is- equality and univalence is that 
Isomorphic c X Y is equal to X = Y: isomorphism is equality. 

Above we have established that Isomorphic c X Y and X = Y are in bi- 
jective correspondence, but we have not given concrete implementations of all 
lemmas that we have used. When the lemmas are implemented as in our Agda 
formalisation we can prove that the right-to-left direction of the bijection is 
propositionally equal to a simple function defined using the J rule — reflexivity 
is mapped to the identity equivalence and an application of resp-id: 

V c X Y. 

from (isomorphism-is- equality c X Y) = 

J (A X Y _. Isomorphic c X Y) (A (_, x, _). (id, resp-id (proji c) x)) 



3.4- A universe 

Let us now define a concrete universe. The codes and the decoding function 
arc defined as follows: 



data U : Type 2 where 
id : U 
type : U 

k : Type x -> U 

U -> U -> U 

U -> U -> {/ 

17 -> 17 -> f/ 



The argument. 

A constant. 
Function space. 
Cartesian product. 
Binary sum. 



Type j 



El : U ^ Type 1 - 

El\d C = C 

El type C = Type 

El(kA) C = A 

El (a->b) C = ElaC -> 

El (a® b) C = El a C x 

El (a® b) C = El a C + 



El b C 
El b C 
El b C 



Here U is an inductive data type, with constructors id, type, k, etc., and El a is 
defined by recursion on the structure of a. The notation _— >_ is used to declare 
an infix operator: the underscores mark the argument positions. 
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We do not define resp directly, instead we define a "cast" operator that 
shows that El a preserves logical equivalences: 

cast : V a{B C}. B <=> C -> El a B <=> El a C 

The cast operator is defined by recursion on the structure of the code a: 



cast id eq 

cast type eq 

cast (k A) eq 

cast (a —> b) eq 

cast (a <g> b) eq 

cast (a ® b) eq 



eq 
id 
id 

cast a eq -^-eq cast b eq 
cast a eq x-eq cast b eq 
cast a eq +-eq cast b eq 



Here id is the identity logical equivalence. We omit the definitions of the logical 
equivalence combinators; they have the following types (for arbitrary types A, 
B, C, D): 



_-^t-eq_ 

_x-eg_ 

-+-eq_ 



A <=> B -> C <=> D -> (A -> C) (B -s- D) 
A ^ 5 -> C* ^ L> -> (A x C) « (B x fl) 
A ^ 5 -> C D -> (A + C) ^> (B + D) 



We define resp using cast (in the obvious way). It is easy to prove that cast 
maps the identity to the identity (assuming extensionality), from which we get 
resp-id. 

Some readers may wonder why we include both type and k in U: in the 
development above type is treated in exactly the same way as k Type. The 
reason is that we want to discuss the following variant of Is-isomorphism, defined 
recursively as a logical relation: 



Is-isomorphism! : V a {B C}. B 



C 



El a B 



ElaC 



Type 1 



Is-isomorphism! id eq 
Is-isomorphism! type eq 
Is-isomorphism! (k A) eq 
Is-isomorphism! (a — > b) eq 

Is-isomorphism' (a ® b) eq 

Is-isomorphism! {a® b) eq 



A x y . to eq x 

XX Y. X ~ 

A x y. x = y 

Is-isomorphism 1 

Is-isomorphism! 

Is-isomorphism 1 

Is-isomorphism 1 

Is-isomorphism' 

Is-isomorphism' 



y 



x-rel 



a eq 
b eq 
a eq 
b eq 

a eq +-rel 
b eq 



Note that the type and k cases are not identical. The relation combinators used 
above arc defined as follows: 



(P -^-rel Q) f g 

(P x-rel Q) (x, u) (y, v) 

(P +-rel Q) (inji x) (inji y) 

(P +-rel Q) (inji x) (inj 2 v) 

(P +-rel Q) (inj 2 u) (inji y) 

(P +-rel Q) (inj 2 u) (inj 2 v) 



= \lxy.Pxy^ Q (/ x) (g y) 

= P x y x Q u v 

= P x y 

= _L 

= _L 

= Q u v 



The definition of Is-isomorphism' can perhaps be seen as more natural than 
that of Is-isomorphism. However, we can prove that they arc in bijective corre- 
spondence by recursion on the structure of a: 
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V a B C x y. (eq : B ~ C) -> 

Is-isomorphism a eq x y -R- Is-isomorphism! a eq x y 

We omit our proof, but note that only the type case makes direct use of univa- 
lence (the _— » case uses extensionality). 

3. 5. Examples 

Let us now consider some examples. 

Monoids. We can define monoids in the following way: 

monoid : Code 
monoid = 

((id — > id — > id) — Binary operation. 

® 

id — Identity. 

,AC(_._,e). 

((Is-set C x — C is a set. 

(y x. e • x = x) x — Left identity. 

(Vi.ne e i) x — Right identity. 

(V x y z. x • (y • z) = (x • y) • z) — Associativity. 

) 

, . . . — The laws are propositional (assuming extensionality) . 
) 

) 

Note that we require the carrier type C to be a set. We omit the proof showing 
that the monoid laws are propositional. The proof makes use of the fact that 
C is a set (which implies that C-equality is propositional); recall that, when 
proving that a type is propositional, one can assume that it is inhabited (see 
Section 2.5). 

If we unfold Instance monoid in a suitable way, then we see that we get a 
proper definition of monoids on sets: 

E C : Type x . 

E (_•_, e) : (C -> C -> C) x C. 

Is-set C x 

(V x. e • x = x) x 

(V x. x • e ee x) x 

(V x y z. x • (y • z) = (x • y) • z) 

Let us now assume that we have two monoids Mi = (C\, ei), lawsi) 

and M 2 = (C2, (-»2-, £2), laws 2 ). Isomorphic monoid Mi M 2 has the following 
unfolding: 

E eq : C Y ~ C 2 . 

((A 2; y. to eg (/rom eg a; »i /totti eg j/)), to eq e\) = (_» 2 _, 62) 

Monoid isomorphisms are typically defined as homomorphic bijections, whereas 
our definition states that an isomorphism is a homomorphic equivalence. How- 
ever, because G\ and C 2 are sets there is a bijection between C\ o C 2 and 
C\ ~ C 2 that, in both directions, preserves the to and /rom components (as- 
suming extensionality). 
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Posets. Let us now define posets: 



poset : Code 
poset = 

(id — > id — > type 
,A C _sC_. 
((Is-set C x 
(V x y. Is-proposition (x y)) x 



C is a set. 
Pointwise 



The ordering relation. 



propositionality. 



(V x. x ^ x) x 

(V x y z. x ^ y — > 2/^2 — > 2; ^ z) x 



Reflexivity. 
Transitivity. 



Antisymmetry. 



The laws are propositional (assuming cxtcnsionality) . 



) 



It is easy to prove that the laws are propositional by making use of the assump- 
tions that the carrier type is a set and that the ordering relation is pointwise 
propositional. 

Instance poset has the following unfolding: 

E C : Type 1 . 

E _sC_ : C -> C -> Type. 
Is-set C x 

(V x y. Is-proposition (x < y)) x 
(V 1. 1 ^ 1) x 

(V x y z. x ^ y — > y ^ z — > 2; ^ z) x 
-> t/sja; ->• x = y) 

For posets Pi = (Ci, laws\) and P 2 = (C 2 , -^2-1 laws 2 ) we get that 

Isomorphic poset Pi P 2 is definitionally equal to 

17 eg : Ci ~ C 2 . (A a &. /rom eg a ^ /rom eg 6) = _< 2 _. 

This definition is not identical to the following definition of order isomorphism: 

E eg : Ci o C 2 . V a b. (a ^1 6) (to eg a < 2 to eg b) 

However, in the presence of univalence the two definitions are in bijective cor- 
respondence (and hence equal): 



E 


eg 


Ci 




c 2 


(A a b. from eg a ^1 from eg 6) = _^ 2 _ 




E 


eg 


Ci 


<-» 


c 2 


(A a &. /row, eg a ^ from eg 6) = _^5 2 _ 




E 


eg 


Ci 


«-» 


c 2 


Vaii. (/rom eg a ^ /rom eg 6) = (a < 2 6) 




E 


eg 


Ci 


«-» 


c 2 


V a b. (a b) = (to eg a ^ 2 to eg 6) 




E 


eg 


Ci 




c 2 


V a b. (a ^1 b) ~ (to eg a ^ 2 to eg 6) 




E 


eg 


Ci 




c 2 


V a fe. (a ^1 6) <^=> (to eg a ^ 2 to eg &) 





The first step uses the fact that bijections between sets are in bijective corre- 
spondence with equivalences, the second step uses the key property of equality 
of Il-types from Section 2.3, the third step uses the fact that from eg and to eg 
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are inverses, the fourth step uses univalence, and finally the last step uses the 
fact that, for propositions, equivalences and logical equivalences are in bijective 
correspondence. (Every step makes use of the assumption of extensionality.) 

If we had used Is-isomorphism! (see Section 3.4) instead of Is-isomorphism 
in the definition of Isomorphic, then Isomorphic poset Pi P 2 would have been 
dcfinitionally equal to 

S eq : & ~ C 2 . 

V a b. to eq a = b — > V c d. to eq c = d — > (a ^ c) ~ (b ^ 2 d). 

One can prove that this type is in bijective correspondence with the definition 
of order isomorphism above without using the univalence axiom. (Our proof 
does use extensionality.) 

Discrete fields. In constructive mathematics there are several non- equivalent 
definitions of fields. One kind of discrete field consists of a commutative ring 
with zero distinct from one, plus a multiplicative inverse operator. We restrict 
attention to the specification of this operator, and choose to specify it as a 
partial operation: 

id^> (kT® id) 

Let us use the name for the operator. It should satisfy the following laws, 
where 0, 1 and _•_ stand for the ring's zero, one and multiplication: 

Vi. x _1 = inji tt — > x =0 

V x y. x _1 = inj2 y — > x ■ y = 1 

These laws are propositional, given the other laws and extensionality, so this 
specification of discrete fields fits into our framework. 

(We have proved that our definition of discrete fields is in bijective corre- 
spondence with non-trivial discrete fields, as defined by Bridges and Richman 
(1987), using _=_ as the equality relation, and X x y. x = y — > _Las the in- 
equality relation. In fact, Bridges and Richman's definition, restricted in this 
way, also fits into our framework.) 

Fixpoint operators. All the examples above use first-order operators. As an 
example of the use of higher-order types we consider sets equipped with fixpoint 
operators: 

set-with- fixpoint- operator : Code 
set-with- fixpoint- operator = 
((id — > id) — > id 
, A C fix. 
((Is-set C x 
(Vf.f(fixf) = fixf) 

) 

, . . . 

) 

) 

Given the instances F\ = (Ci, fix ±, laws i) and F 2 — {C 2 , fix 2 , laws 2) we get 
that Isomorphic set-with- fixpoint- operator F\ F 2 is dcfinitionally equal to 
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£ eg : C\ ~ C 2 . (A /. to eg (fix 1 (A x. /rom eg (/ (to eg a;))))) = fix 2 . 

If we had used Is-isomorphism' instead of Is-isomorphism in the definition of 
Isomorphic, then Isomorphic set-with-fixpoint- operator F x F 2 would have been 
dcfinitionally equal to 

S eg : & ~ C 2 . 

V/ .9- (V x y. to eg a; = 2/ -> to eg (/ x) = g y) -> 
to eg (j&i /) = #e 2 .g. 

This type is perhaps a bit easier to understand. 

4. Conclusions and related work 

We have shown that, for a large class of algebraic structures, isomorphism 
is in bijcctive correspondence with equality. 

The first use of S-types — or "telescopes" (dc Bruijn 1991) — to formalise 
abstract mathematical structures is possibly due to Zucker (1977), one of the 
members of the AUTOMATH project team. 

The notion of structure used in Section 3 (instantiated as in Section 3.4) 
can be seen as a type-theoretic variant of Bourbaki's notion of structure (1957), 
using type-theoretic function spaces instead of power sets. Furthermore the 
notion of isomorphism that Bourbaki associates to a structure is very similar to 
the one used in this paper. 

The main theorem in Section 3.3 can be compared to what happens for 
Bourbaki's notion of structure formulated in set theory. As observed in the in- 
troduction the membership relation can be used to distinguish between isomor- 
phic monoids. However, it is possible to restrict attention to relations that are 
"transportable", i.e. relations that respect isomorphisms (Bourbaki 1957). Mar- 
shall and Chuaqui (1991) state that set-theoretical sentences are transportable 
iff they are equivalent (in a certain sense) to type-theoretical sentences (for 
certain variants of set and type theory) . 

The univalence axiom was introduced by Voevodsky (2010), who motivated 
it using a model construction inspired by the connection between identity types 
in type theory and path spaces in homotopy theory (Awodey and Warren 2009). 
Previously Hofmann and Streicher had introduced a related but more restricted 
set of axioms, referred to as "universe extensionality" (1998). 

The simple result that we present in this paper, a first, limited version of 
which was formalised in Agda in March 2011, is only a starting point. Aczel's 
structure identity principle 3 (The Univalent Foundations Program 2013) is more 
abstract. An important point of our formalisation is that we do not assume that 
we have a definitional computation rule for J (as discussed in Section 2.3). The 
accompanying Agda code contains a proof of the structure identity principle for 
1-categories, proved without using such a computation rule. It is also shown 
how the structure identity principle can be used to prove a slightly restricted 
variant of our main theorem. 



3 Peter Aczel informed us that the principle was conjectured by him and proved by 
"[Michael] Shulman and colleagues". 
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Ahrcns ct al. (2013) present a different but related result. We can state it 
as follows: in type theory extended with the axiom of univalence, and using 
natural definitions of "category" and "equivalence of categories" , equivalence of 
two categories C and D is in bijective correspondence with equality of C and 
D, and the right-to-left direction of the bijection maps reflexivity to the identity 
equivalence. 
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